﻿Imports AccesoDatos


Public Class MultiConfiguracion

#Region "David Murillo"

    ''' <summary>
    ''' Modifica la fecha para subir el curriculo vitae
    ''' </summary>
    ''' <param name="p_dias">Periodo nuevo en dias</param>
    ''' <remarks>Creado por: David Murillo, Creado: 18/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Sub modificarPeriodoCV(ByVal p_dias As String)

        Dim sql As String
        Dim pars(0) As Parametro

        sql = "update t_configuracion set periodo_curriculum = p_dias"

        pars(0) = New Parametro("p_dias", p_dias)

        g_access.ejecutarSQL(sql, pars)

    End Sub

    ''' <summary>
    ''' Retorna el periodo del curriculo vitae
    ''' </summary>
    ''' <returns>Integer</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 22/07/2010, Modificado: 22/07/2010.</remarks>
    Public Shared Function obtenerPeriodoCurriculo() As Integer
        Dim periodoCurriculo As Integer
        Dim dr As IDataReader
        Dim pars(0) As Parametro

        Dim sql As String

        sql = "select periodo_curriculum from t_configuracion"

        dr = g_access.ejecutarQuery(sql)

        If dr.Read() Then
            With dr
                periodoCurriculo = CInt(dr.Item(0))
            End With
        End If

        Return periodoCurriculo

    End Function

#End Region

End Class


